Public Class frmType_Tran

    Private Sub frmType_Tran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rdbType_Tran1.Checked = True
    End Sub

    ' Fields
    Private m_sType_Tran As String = String.Empty

    ' Properties
    Public Property Type_Tran() As String
        Get
            Return m_sType_Tran
        End Get
        Set(ByVal value As String)
            m_sType_Tran = value
        End Set
    End Property

    Private Sub rdbType_Tran1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbType_Tran1.CheckedChanged
        Type_Tran = "1"
    End Sub

    Private Sub rdbType_Tran2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbType_Tran2.CheckedChanged
        Type_Tran = "2"
    End Sub

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Dim frm As New frmPrintPreviews
        frm.Type_Tran = Me.Type_Tran
        frm.ShowDialog()
    End Sub

    Private Sub rdbType_Tran3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbType_Tran3.CheckedChanged
        Type_Tran = "3"
    End Sub
End Class